home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / fact_hex.fpl < prev    next >
Text File  |  1995-07-18  |  581b  |  18 lines
  1. {
  2.   string hex[16]={"0", "1", "2", "3", "4", "5", "6", "7",
  3.                   "8", "9", "A", "B", "C", "D", "E", "F"};
  4.   int counter;
  5.   string fact=ReadInfo("fact");
  6.  
  7.   Visible(0);
  8.   FACTCreate(fact);
  9.   for (counter=1; counter<256; counter++) {
  10.     FACT(fact, counter, 'e', '-', 's', joinstr("#R", itoc(counter), "#r-", hex[counter>>4],
  11.                                hex[counter&15], " "));
  12.   }
  13.   FACT(fact, 0, 's', "#R #r-00 ");    // Change the 00-character.
  14.   FACT(fact, 0x23, 's', "#R###r-23 ");    // Change the '#'-character.
  15.   FACT(fact, 0xa, 'N');            // 0x0A is still newline
  16. }
  17.  
  18.